Shocking The Web CD-ROM/SHOCK_CD.ISO/pc/powerapp/animator.exe/gmd.dcr/00003_MAIN SCRIPTS.ls

Text File | 1996-05-07 | 13.7 KB | 319 lines

global gAnimSpeedSlider, myFileIO, gRadioCluster, gStartingPoint, gEndingPoint, cShowFrame, gLogoType, gAnimationStage, gCenterStage, gDisplayArea, gLogoAnimationStart, gLogoAnimationFrames, gAnimSpeed, gAnimationObjects, gDeathRow, gEnterPathButtonList, gExitPathButtonList, gDirectionButtonGridList, gEnterPathDirection, gExitPathDirection, cEnterPathAnimChannel, cExitPathAnimChannel, cLogoEnterChannel, cLogoHoldChannel, cLogoExitChannel, gGeneralSetting, gLoopCounter, gLoopMaximum, gbCanAnimate, gbPaused, gSpriteStack, gEnterTime, gHoldTime, gExitTime, gDelayTime, gCPU

on startMovie
  set gAnimationObjects to [:]
  set gDeathRow to []
  sort(gAnimationObjects)
  set the cpuHogTicks to 3600
end

on initializeGlobals
  set gEnterPathDirection to value(word 1 of field "EnterDir")
  if gEnterPathDirection < 1 then
    set gEnterPathDirection to 1
  end if
  set gExitPathDirection to value(word 1 of field "ExitDir")
  if gExitPathDirection < 1 then
    set gExitPathDirection to 1
  end if
  set cLogoEnterChannel to 1
  set cLogoHoldChannel to 2
  set cLogoExitChannel to 3
  set cShowFrame to 7
  set gEnterTime to value(word 1 of field "EnterTime")
  set gHoldTime to value(word 1 of field "HoldTime")
  set gExitTime to value(word 1 of field "ExitTime")
  set gLoopMaximum to value(word 1 of field "PlayTimes")
  set gDelayTime to value(word 1 of field "DelayTime")
  set gAnimSpeed to value(word 1 of field "AnimSpeed")
  set gLogoAnimationStart to value(word 1 of field "LogoStart")
  set gLogoAnimationFrames to value(word 1 of field "LogoFrames")
  set gGeneralSetting to value(word 1 of field "GeneralSetting")
  set gbCanAnimate to 1
  set gbPaused to 0
  set gDisplayArea to rect(0, 0, the stageRight - the stageLeft, the stageBottom - the stageTop)
  set gCenterStage to point((the stageRight - the stageLeft) / 2, (the stageBottom - the stageTop) / 2)
  puppetSprite(cLogoEnterChannel, 1)
  puppetSprite(cLogoHoldChannel, 1)
  puppetSprite(cLogoExitChannel, 1)
  resetPreview()
end

on callAnimEngine
  set activeObjectsCount to count(gAnimationObjects)
  if activeObjectsCount > 0 then
    repeat with objectNum = 1 to activeObjectsCount
      stepAnimation(getAt(gAnimationObjects, objectNum))
    end repeat
    if count(gDeathRow) > 0 then
      repeat with condemned in gDeathRow
        death(getaProp(gAnimationObjects, condemned))
      end repeat
      set gDeathRow to []
    end if
    updateStage()
  end if
end

on updateAnimObjects whichItem
  if whichItem = #enterPreview then
    deleteProp(gAnimationObjects, cLogoEnterChannel)
    setaProp(gAnimationObjects, cLogoEnterChannel, birth(script "AnimatorClass", [#channel: cLogoEnterChannel, #location: gStartingPoint, #frameDataStart: gLogoAnimationStart, #frameData: gLogoAnimationFrames, #everyFrame: 0, #pathData: #CALC, #soundType: #NULL, #soundName: #NULL, #iterations: 1, #frameRate: gAnimSpeed, #pauseState: 0, #visibleState: 0, #pathStartLoc: gStartingPoint, #pathEndLoc: gCenterStage, #animationTime: gEnterTime, #inkEffect: #MATTE, #loopAction: #pause, #completionAction: #pause]))
    exit
  end if
  if whichItem = #holdPreview then
    deleteProp(gAnimationObjects, cLogoHoldChannel)
    setaProp(gAnimationObjects, cLogoHoldChannel, birth(script "AnimatorClass", [#channel: cLogoHoldChannel, #location: gCenterStage, #frameDataStart: gLogoAnimationStart, #frameData: gLogoAnimationFrames, #everyFrame: 0, #pathData: #CALC, #soundType: #NULL, #soundName: #NULL, #iterations: 1, #frameRate: gAnimSpeed, #pauseState: 1, #visibleState: 0, #pathStartLoc: gCenterStage, #pathEndLoc: gCenterStage, #animationTime: gHoldTime, #inkEffect: #MATTE, #loopAction: #pause, #completionAction: #pause]))
    exit
  end if
  if whichItem = #exitPreview then
    deleteProp(gAnimationObjects, cLogoExitChannel)
    setaProp(gAnimationObjects, cLogoExitChannel, birth(script "AnimatorClass", [#channel: cLogoExitChannel, #location: gCenterStage, #frameDataStart: gLogoAnimationStart, #frameData: gLogoAnimationFrames, #everyFrame: 0, #pathData: #CALC, #soundType: #NULL, #soundName: #NULL, #iterations: 1, #frameRate: gAnimSpeed, #pauseState: 1, #visibleState: 0, #pathStartLoc: gCenterStage, #pathEndLoc: gEndingPoint, #animationTime: gExitTime, #inkEffect: #MATTE, #loopAction: #pause, #completionAction: #pause]))
  end if
end

on resetPreview
  cursor(4)
  set gLoopCounter to 0
  set gbCanAnimate to 1
  set logoWidth to the width of cast gLogoAnimationStart / 2
  set logoHeight to the height of cast gLogoAnimationStart / 2
  if gEnterPathDirection = 1 then
    set gStartingPoint to point(the left of gDisplayArea, the top of gDisplayArea) - point(0, logoHeight)
  else
    if gEnterPathDirection = 2 then
      set gStartingPoint to point(the left of gDisplayArea - ((the left of gDisplayArea - the right of gDisplayArea) / 2), the top of gDisplayArea) - point(0, logoHeight)
    else
      if gEnterPathDirection = 3 then
        set gStartingPoint to point(the right of gDisplayArea, the top of gDisplayArea) - point(0, logoHeight)
      else
        if gEnterPathDirection = 4 then
          set gStartingPoint to point(the left of gDisplayArea, the bottom of gDisplayArea - ((the bottom of gDisplayArea - the top of gDisplayArea) / 2)) - point(logoWidth, 0)
        else
          if gEnterPathDirection = 5 then
            set gStartingPoint to gCenterStage
          else
            if gEnterPathDirection = 6 then
              set gStartingPoint to point(the right of gDisplayArea, the bottom of gDisplayArea - ((the bottom of gDisplayArea - the top of gDisplayArea) / 2)) - point(-logoWidth, 0)
            else
              if gEnterPathDirection = 7 then
                set gStartingPoint to point(the left of gDisplayArea, the bottom of gDisplayArea) - point(0, -logoHeight)
              else
                if gEnterPathDirection = 8 then
                  set gStartingPoint to point(the right of gDisplayArea - ((the right of gDisplayArea - the left of gDisplayArea) / 2), the bottom of gDisplayArea) - point(0, -logoHeight)
                else
                  if gEnterPathDirection = 9 then
                    set gStartingPoint to point(the right of gDisplayArea, the bottom of gDisplayArea) - point(0, -logoHeight)
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  if gExitPathDirection = 1 then
    set gEndingPoint to point(the left of gDisplayArea, the top of gDisplayArea) - point(0, logoHeight)
  else
    if gExitPathDirection = 2 then
      set gEndingPoint to point(the left of gDisplayArea - ((the left of gDisplayArea - the right of gDisplayArea) / 2), the top of gDisplayArea) - point(0, logoHeight)
    else
      if gExitPathDirection = 3 then
        set gEndingPoint to point(the right of gDisplayArea, the top of gDisplayArea) - point(0, logoHeight)
      else
        if gExitPathDirection = 4 then
          set gEndingPoint to point(the left of gDisplayArea, the bottom of gDisplayArea - ((the bottom of gDisplayArea - the top of gDisplayArea) / 2)) - point(logoWidth, 0)
        else
          if gExitPathDirection = 5 then
            set gEndingPoint to gCenterStage
          else
            if gExitPathDirection = 6 then
              set gEndingPoint to point(the right of gDisplayArea, the bottom of gDisplayArea - ((the bottom of gDisplayArea - the top of gDisplayArea) / 2)) - point(-logoWidth, 0)
            else
              if gExitPathDirection = 7 then
                set gEndingPoint to point(the left of gDisplayArea, the bottom of gDisplayArea) - point(0, -logoHeight)
              else
                if gExitPathDirection = 8 then
                  set gEndingPoint to point(the right of gDisplayArea - ((the right of gDisplayArea - the left of gDisplayArea) / 2), the bottom of gDisplayArea) - point(0, -logoHeight)
                else
                  if gExitPathDirection = 9 then
                    set gEndingPoint to point(the right of gDisplayArea, the bottom of gDisplayArea) - point(0, -logoHeight)
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  updateAnimObjects(#exitPreview)
  updateAnimObjects(#holdPreview)
  updateAnimObjects(#enterPreview)
  resetAnimationObjects()
  cursor(-1)
  callAnimEngine()
end

on updatePreview
  if gbCanAnimate and not gbPaused then
    if gAnimationStage = #enter then
      if (gEnterTime = 0) or (the pbPauseState of getaProp(gAnimationObjects, cLogoEnterChannel) = 1) then
        set gAnimationStage to #hold
        setVisibleState(getaProp(gAnimationObjects, cLogoHoldChannel), 1)
        setVisibleState(getaProp(gAnimationObjects, cLogoEnterChannel), 0)
        set the pStartTicks of getaProp(gAnimationObjects, cLogoHoldChannel) to the ticks
        set the pOffsetTicks of getaProp(gAnimationObjects, cLogoHoldChannel) to the ticks
        setPauseState(getaProp(gAnimationObjects, cLogoHoldChannel), 0)
        callAnimEngine()
      else
        exit
      end if
    end if
    if gAnimationStage = #hold then
      if (gHoldTime = 0) or (the pbPauseState of getaProp(gAnimationObjects, cLogoHoldChannel) = 1) then
        set gAnimationStage to #exit
        setVisibleState(getaProp(gAnimationObjects, cLogoExitChannel), 1)
        setVisibleState(getaProp(gAnimationObjects, cLogoHoldChannel), 0)
        set the pStartTicks of getaProp(gAnimationObjects, cLogoExitChannel) to the ticks
        set the pOffsetTicks of getaProp(gAnimationObjects, cLogoExitChannel) to the ticks
        setPauseState(getaProp(gAnimationObjects, cLogoExitChannel), 0)
        callAnimEngine()
      else
        exit
      end if
    end if
    if gAnimationStage = #exit then
      if (gEnterTime = 0) or (the pbPauseState of getaProp(gAnimationObjects, cLogoExitChannel) = 1) then
        setVisibleState(getaProp(gAnimationObjects, cLogoExitChannel), 0)
        set gAnimationStage to #delay
        startTimer()
      else
        exit
      end if
    end if
    if gAnimationStage = #delay then
      if the timer > (value(word 1 of field "DelayTime") * 60) then
        set gLoopCounter to gLoopCounter + 1
        if (gGeneralSetting = #once) or ((gGeneralSetting = #nTimes) and (gLoopCounter >= gLoopMaximum)) then
          set gbCanAnimate to 0
        else
          resetAnimationObjects()
        end if
      end if
    end if
  end if
end

on resetAnimationObjects
  set gAnimationStage to #enter
  set the loc of sprite cLogoEnterChannel to gStartingPoint
  set the loc of sprite cLogoHoldChannel to gCenterStage
  set the loc of sprite cLogoExitChannel to gCenterStage
  updateStage()
  set enterOBJ to getaProp(gAnimationObjects, cLogoEnterChannel)
  set the pCurrentFrame of enterOBJ to 1
  set the pLoopCounter of enterOBJ to 0
  set the pCurrentTime of enterOBJ to 0
  set the pCurrentPathFrame of enterOBJ to 1
  set the pStartTicks of enterOBJ to the ticks
  set the pOffsetTicks of enterOBJ to the ticks
  set the pCurrentLoc of enterOBJ to the pPathStartLoc of enterOBJ
  setVisibleState(enterOBJ, 1)
  set the pbPauseState of enterOBJ to 0
  set holdOBJ to getaProp(gAnimationObjects, cLogoHoldChannel)
  set the pCurrentFrame of holdOBJ to 1
  set the pLoopCounter of holdOBJ to 0
  set the pCurrentTime of holdOBJ to 0
  set the pCurrentPathFrame of holdOBJ to 1
  set the pCurrentLoc of holdOBJ to the pPathStartLoc of holdOBJ
  set exitOBJ to getaProp(gAnimationObjects, cLogoExitChannel)
  set the pCurrentFrame of exitOBJ to 1
  set the pLoopCounter of exitOBJ to 0
  set the pCurrentTime of exitOBJ to 0
  set the pCurrentPathFrame of exitOBJ to 1
  set the pCurrentLoc of exitOBJ to the pPathStartLoc of exitOBJ
  callAnimEngine()
end

on pushSprites firstChannel, lastChannel
  set gSpriteStack to [:]
  repeat with channel = firstChannel to lastChannel
    set props to [:]
    addProp(props, #puppet, the puppet of sprite channel)
    addProp(props, #loc, the loc of sprite channel)
    addProp(props, #castNum, the castNum of sprite channel)
    addProp(props, #ink, the ink of sprite channel)
    addProp(props, #stretch, the stretch of sprite channel)
    addProp(gSpriteStack, channel, props)
  end repeat
end

on clearSprites firstChannel, lastChannel
  repeat with channel = firstChannel to lastChannel
    puppetSprite(channel, 0)
  end repeat
end

on popSprites
  set channelCount to count(gSpriteStack)
  repeat with element = 1 to channelCount
    set channel to getPropAt(gSpriteStack, element)
    set props to getaProp(gSpriteStack, channel)
    set the puppet of sprite channel to the puppet of props
    set the loc of sprite channel to the loc of props
    set the castNum of sprite channel to the castNum of props
    set the ink of sprite channel to the ink of props
    set the stretch of sprite channel to the stretch of props
  end repeat
end

on addLists masterList, listToAdd
  if not listp(masterList) then
    if masterList <> EMPTY then
      exit
    end if
    set theDataType to getIlk(listToAdd)
    if theDataType = #linearList then
      set masterList to []
    else
      if theDataType = #propertyList then
        set masterList to [:]
      else
        exit
      end if
    end if
  end if
  if not listp(listToAdd) and (listToAdd <> EMPTY) then
    exit
  end if
  if getIlk(masterList) <> getIlk(listToAdd) then
    exit
  end if
  if getIlk(masterList) = #linearList then
    set newItemCount to count(listToAdd)
    repeat with x = 1 to newItemCount
      add(masterList, getAt(listToAdd, x))
    end repeat
  else
    set newItemCount to count(listToAdd)
    repeat with x = 1 to newItemCount
      addProp(masterList, getPropAt(listToAdd, x), getAt(listToAdd, x))
    end repeat
  end if
end

on getIlk data
  if listp(data) then
    if ilk(data, #propList) then
      set theIlk to #propList
    else
      set theIlk to #linearList
    end if
  else
    set theIlk to ilk(data)
  end if
  return theIlk
end